home *** CD-ROM | disk | FTP | other *** search
/ Tech Win 1996 January / CD [TECH_A].bin / tech_a / vb4wm / vb4-4.cab / picview.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-10-25  |  3.4 KB  |  132 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "
  4.    ClientHeight    =   4830
  5.    ClientLeft      =   1065
  6.    ClientTop       =   1695
  7.    ClientWidth     =   7395
  8.    ClipControls    =   0   'False
  9.    Height          =   5235
  10.    Left            =   1005
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4830
  13.    ScaleWidth      =   7395
  14.    Top             =   1350
  15.    Width           =   7515
  16. BeginProperty Font
  17. name = "
  18. size = 9
  19. bold = 0
  20. EndProperty
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "
  23. (&X)"
  24.       Height          =   495
  25.       Left            =   5520
  26.       TabIndex        =   4
  27.       Top             =   4080
  28.       Width           =   1215
  29. BeginProperty Font
  30. name = "
  31. size = 9
  32. bold = 0 
  33. EndProperty
  34.    End
  35.    Begin VB.FileListBox File1 
  36.       Height          =   1320
  37.       Left            =   600
  38.       Pattern         =   "*.bmp;*.wmf;*.ico"
  39.       TabIndex        =   2
  40.       Top             =   2400
  41.       Width           =   2895
  42. BeginProperty Font
  43. name = "
  44. size = 9
  45. bold = 0 
  46. EndProperty
  47.    End
  48.    Begin VB.DirListBox Dir1 
  49.       Height          =   1575
  50.       Left            =   600
  51.       TabIndex        =   1
  52.       Top             =   720
  53.       Width           =   2895
  54. BeginProperty Font
  55. name = "
  56. size = 9
  57. bold = 0 
  58. EndProperty
  59.    End
  60.    Begin VB.DriveListBox Drive1 
  61.       Height          =   1530
  62.       Left            =   600
  63.       TabIndex        =   0
  64.       Top             =   360
  65.       Width           =   2895
  66. BeginProperty Font
  67. name = "
  68. size = 9
  69. bold = 0 
  70. EndProperty
  71.    End
  72.    Begin VB.Label Label1 
  73.       BorderStyle     =   1  '
  74.       Height          =   495
  75.       Left            =   3720
  76.       TabIndex        =   3
  77.       Top             =   3255
  78.       Width           =   3015
  79. BeginProperty Font
  80. name = "
  81. size = 9
  82. bold = 0 
  83. EndProperty
  84.    End
  85.    Begin VB.Image Open 
  86.       BorderStyle     =   1  '
  87.       Height          =   2775
  88.       Left            =   3720
  89.       Stretch         =   -1  'True
  90.       Top             =   360
  91.       Width           =   3015
  92.    End
  93. Attribute VB_Name = "Form1"
  94. Attribute VB_Creatable = False
  95. Attribute VB_Exposed = False
  96. Private Sub Command1_Click()
  97.     Unload Me
  98.     End
  99. End Sub
  100. Private Sub Dir1_Change()
  101.     ' 
  102.     file1.Path = Dir1.Path
  103. End Sub
  104. Private Sub Drive1_Change()
  105.     ' 
  106.     ' (
  107.  Dir1_Change 
  108.     Dir1.Path = Drive1.Drive
  109. End Sub
  110. Private Sub File1_DblClick()
  111.     ' 
  112.  C:\) 
  113.     ' Path 
  114.  (\) 
  115.     ' 
  116.     ' 
  117.     ' 
  118.     If Right(file1.Path, 1) <> "\" Then
  119.         label1.Caption = file1.Path & "\" & file1.filename
  120.     Else
  121.         label1.Caption = file1.Path & file1.filename
  122.     End If
  123.         ' 
  124.         Form1.open.picture = LoadPicture(label1.Caption)
  125. End Sub
  126. Private Sub Form_Load()
  127.     ' 
  128.     ' 
  129.     Drive1.Drive = App.Path
  130.     Dir1.Path = App.Path
  131. End Sub
  132.